% procedure draw_Hill
% draws Hill function using default values
% values can be modified 


HandleFigHill=findobj('Tag','Fig_Hill');
   
HandleEditTextamp_Hill=findobj(gcf,'Tag','EditTextamp_Hill');
if isempty(get(HandleEditTextamp_Hill,'String'))
  	amp_Hill=1.2;
   set(HandleEditTextamp_Hill,'String',num2str(amp_Hill));
else   
  	amp_Hill=str2num(get(HandleEditTextamp_Hill,'String'));
end

HandleEditTextt01_Hill=findobj(gcf,'Tag','EditTextt01_Hill');
if isempty(get(HandleEditTextt01_Hill,'String'))
  	t01_Hill=0.2;
   set(HandleEditTextt01_Hill,'String',num2str(t01_Hill));
else   
  	t01_Hill=str2num(get(HandleEditTextt01_Hill,'String'));
end

HandleEditTextt02_Hill=findobj(gcf,'Tag','EditTextt02_Hill');
if isempty(get(HandleEditTextt02_Hill,'String'))
	t02_Hill=0.44;
   set(HandleEditTextt02_Hill,'String',num2str(t02_Hill));
else   
  	t02_Hill=str2num(get(HandleEditTextt02_Hill,'String'));
end

HandleEditTextn_Hill=findobj(gcf,'Tag','EditTextn_Hill');
if isempty(get(HandleEditTextn_Hill,'String'))
	n_Hill=2.4;
   set(HandleEditTextn_Hill,'String',num2str(n_Hill));
else   
  	n_Hill=str2num(get(HandleEditTextn_Hill,'String'));
end

HandleEditTextm_Hill=findobj(gcf,'Tag','EditTextm_Hill');
if isempty(get(HandleEditTextm_Hill,'String'))
	m_Hill=17;
   set(HandleEditTextm_Hill,'String',num2str(m_Hill));
else   
  	m_Hill=str2num(get(HandleEditTextm_Hill,'String'));
end

tN=time/T;

E_t_DoubleHill=Hill_elastance(tN,amp_Hill,t01_Hill,t02_Hill,n_Hill,m_Hill);

plot(time,E_t_DoubleHill,'y');



